AL HAL,HE↔

COM HLSAIF(37B,XH)/COM↔
↓
λ
SAV HLSAIF↔

COM HALSAI(37B,XH)/COM↔
↓
λ
SAV HALSAI↔

ru hlsaif↔
pass3/37b←pass3↔
↓
λ
do fraid↔
pass3↔
≠≠≠E↔

ru halsai↔
gobble←gobble↔
↓
λ
do fraid↔
gobble↔
≠≠≠E↔

ru halsai↔
wldmod/37b←wldmod↔
↓
λ
do fraid↔
wldmod↔
≠≠≠E↔

ru halsai↔
exprs←exprs↔
↓
λ
do fraid↔
exprs↔
≠≠≠E↔

ru halsai↔
alprin←alprin↔
↓
λ
do fraid↔
alprin↔
≠≠≠E↔

com emiter(H)/com↔ 
↓
λ
com intdef(H)/com↔
↓
λ
com pmatch(H)/com↔ 
↓
λ
com tcalc(H)/com↔
↓
λ
com arith(H)/com↔ 
↓
λ
com halrec(H)/com↔ 
↓
λ
;COM ALC(37B,H)/com↔ 
;↓
;λ


R LOADER 140↔
ALC,BAIL≠
λ
SSAVE ALNEW↔

;r srccom↔
;gobble.dif←gobble.sai,gobble.sai[hal,rht]↔
;wldmod.dif←wldmod.sai,wldmod.sai[hal,rht]↔
;exprs.dif←exprs.sai,exprs.sai[hal,rht]↔
;λ